$INCLUDE: 'C:\FG\FASTGRAF.FI'

      PROGRAM MAIN

      INTEGER*1 ESC
      PARAMETER (ESC=27)

      INTEGER*1 KEY, AUX

      CALL FG_INITPM

10    CALL FG_GETKEY(KEY,AUX)
      WRITE(6,1000) KEY, AUX
      IF (KEY .NE. ESC) GO TO 10

      STOP ' '
1000  FORMAT(' key = ',I3,'  aux = ',I3)
      END
